TITLE: 
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DESCRIPTION: 



METHODS 



nj 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 

AUXILIARY LIBRARY ROUTINE 



S 6 - 500 



Exponential with Scaled Exponent 

Closed subroutine with one program parameter 

30 

0, 1, 2 

Maximum error 5 x 10 

l4 milliseconds 



,-12 



This routine replaces y the Contents of A before entry 
by e . The quantity x is in the range < x < 2*" . 
The entry is 

q 50 nF 
50 qF 

26 - 

where n is the binary scaling of x, that is; 



y = x 



,-n 



< n < 63 



The computation is done as follows: 

(l) x is unsealed and then divided by .fct 2 



(2) e is computed where w is the remainder from step (l) 



-w 



(3) e " is shifted right z places where z is the integer 

part from step (l) 
i.e. 

x = zi*.2 + w(z integer ) (w < £m 2 ) 

-x -(z Jrf\2 + w) -w/ -z JLn\2v -w -z 

e = e v =e(e r )=e 2 

The qunatity e is computed by the same method as 
used by routine S k - 212. 
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ORDER 
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if 
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lif 
15 
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17 



OOK 

ifO F 
S5 F 
Fh L 
if2 24L 
if6 3L 
50 F 
01 F 
66 2TL 
10 IF 
ifO F 
K5 F 
if 2 23L 
LO 28L 
36 8L 
23 2ifL 
ifO F 
89 IF 
IA F 
32 7L 
L5 F 
10 2F 
50 F 
ifO F 
7J F 
ifO IF 
L5 25L 
ifO 29L 
23 l^L 
S5 F 
10 3F 
IA 29L 
ifO 2F 
L5 IF 
10 5F 
66 2F 
L5 29L 



NOTES PAGE 1 S 6 



Set link 

Set shift address to n + 1 



Divide 



by ^2 



Save remainder 



Set shift address 



.- -x , o -if0 
Jump if e < 2 



Correet sign of remainder if necessary 
Compute e" W (See Sh - 212) 



LOCATION 
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2k 
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ORDER 



LO 26L 
IK) 29L 
LO 26L 
36 l^L 
LJ F 
S*4- F 
kO 2F 
50 28L 
L5 F 
66 2F 
S9 F 
10 F 
00 2F 
22 F 
58 F 
00 F 
10 F 
00 F 
58 2960F 
SL 30^9F 
80 F 
00 kOF 
00 F 
00 F 



NOTES PAGE 2 S 6 



Shift right z + 1 places 



Link 



Constants 



